home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)sds.d64
/
spriten up
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
2KB
|
88 lines
20 REM DRAW THE ORIGINAL BORDERS BY TYPING RUN
25 REM TYPE GOTO 200:TO SAVE THE PICTURE AND DRAW SPRITE
30 REM TYPE GOTO 500:TO LIST THE DAAW SPRITE
35 REM TYPE GOTO 600:TO REDRAW AND MODIFY THE PICTURE
40 REM TYPE GOTO 700:TO LIST DATA TO THE PRINTER
45 DIM AR(504),A1(63):V=53248
100 GOSUB 1000
150 END
200 GOSUB 1200
300 GOSUB 1300
400 GOSUB 1400
450 END
500 GOSUB 1500
510 IF P1=1 THEN PRINT#1 : PL=0 : CLOSE 1 : REM PL=ZERO
550 END
600 GOSUB 1600
650 END
700 P1=1
710 OPEN 1,4 : CMD 1
720 GOTO 500
800 REM
1000 REM SET UP INFORMATION FOR BORDERS
1010 PRINT"[SHIFT CLR]"
1020 S=1034:S1=1057:S2=1:S3=100:GOSUB 1100
1030 S=1073:S1=1873:S2=40:S3=103:GOSUB 1100
1040 S=1914:S1=1937:S2=1:S3=99:GOSUB 1100
1050 S=1098:S1=1937:S2=40:S3=101:GOSUB 1100
1060 S=1034:POKE S+7,122:POKE S+8,76
1065 POKE S+15,122:POKE S+16,76
1070 S=1914:POKE S+7,80:POKE S+8,79
1075 POKE S+15,80:POKE S+16,79
1080 S=1472:POKE S,67:POKE S+27,67
1090 RETURN
1100 REM DRAW BORDERS
1110 FOR I=S TO S1 STEP S2
1120 : POKE I,S3
1130 NEXT I
1140 RETURN
1150 REM
1200 REM PUT BIT DATA IN ARRAY AR()
1210 I1=0 : REM I1=ZERO
1220 FOR S=1074 TO 1874 STEP 40
1230 : FOR I=S TO S+23
1240 : I1=I1+1
1250 : AR(I1)=0 : REM AR(I1)=ZERO
1260 : IF PEEK(I)=49 THEN AR(I1)=1
1270 : NEXT I
1280 NEXT S
1290 RETURN
1295 REM
1300 REM DECORE & PUT DECIMAL DATA IN ARRAY A1()
1310 Y=1
1320 FOR I=1 TO 63
1330 : DEC=0 :BIN=128 :REM DEC=ZERO
1340 : FOR IX=Y TO Y+7
1350 : DEC=DEC+BIN*AR(IX)
1360 : BIN=BIN/2
1370 : NEXT IX
1380 : Y=Y+8 : A1(I)=DEC
1390 NEXT I
1395 RETURN
1397 REM
1400 REM DRAW THE SPRITE
1410 FOR I=1 TO 63
1420 : POKE 831+I,A1(I)
1430 NEXT I
1440 POKE V+4,70 : POKE V+5,205
1450 POKE 2042,13 : POKE V+21,4
1460 RETURN
1470 REM
1500 REM LIST DATA
1510 PRINT"[SHIFT CLR]" : POKE V+21,0 : REM POKE V+21,ZERO
1520 FOR I=1 TO 63 STEP 3
1530 : PRINT A1(I),A1(I+1),A1(I+2)
1540 NEXT I
1550 RETURN
1560 REM
1600 REM REDRAW PICTURE
1610 GOSUB 1000
1620 I1=0 : REM I1=ZERO
1630 FOR S=1074 TO 1874 STEP 40
1640 : FOR I=S TO S+23
1650 : I1=I1+1
1660 : IF AR(I1)=1 THEN POKE I,49
1670 : NEXT I
1680 NEXT S
1690 RETURN